home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / Q-ENSE99.ZIP / CHECK.PPS < prev    next >
Text File  |  1995-06-06  |  6KB  |  118 lines
  1. ;-------------------------------------------------------------------------
  2. ; Enhanced Security Viewer.pps                                           |
  3. ; Written by Cosmic.Qtip...                                              |
  4. ; Please dont lame around and re-release this ppe with dull modifications|
  5. ; 1 lame clone tool is enuff...                                          |
  6. ;------------------------------------------------------------------------|
  7.  
  8. ;Define Vars
  9.  
  10.  String Zeichen, Waitkey, Templine, SecStr, Status
  11. Integer Secu, Count, ACount, ICount
  12.  
  13. ;-----------------------------------------------------------------------
  14. ;
  15. ;The Mainprogramm 
  16. ;
  17. ;-----------------------------------------------------------------------
  18.  
  19. Getuser                                   ; Get user data..
  20.  
  21.  ACount = 1                               ; Counter Check..
  22.   Count = 1                               ; Counter 1...
  23.  Icount = 1                               ; Counter 2...
  24.    Secu = CurSec()                        ; Get User Security...
  25.  
  26. if (secu = 10) then                       ; 
  27.                    count  = 2             ;
  28.                    Status = " NEW"        ;
  29.               endif                       ;
  30. if (secu = 20) then                       ;
  31.                    count  = 13            ;
  32.                    Status = "LAMA"        ;
  33.               endif                       ; Check da user sec and give him
  34. if (secu = 30) then                       ; a status and how much "blocks"
  35.                    count  = 16            ; should run around :)
  36.                    Status = "Okay"        ;
  37.               endif                       ;
  38. if (secu = 40) then                       ;
  39.                    count  = 19            ;
  40.                    Status = "Good"        ;
  41.               endif                       ;
  42. if (secu = 50) then                       ;
  43.                    count  = 22            ;
  44.                    Status = "Well"        ;
  45.               endif                       ;
  46. if (secu = 60) then                       ;
  47.                    count  = 25            ;
  48.                    Status = "Kewl"        ;
  49.               endif                       ;
  50. if (secu = 70) then                       ;
  51.                    count  = 28            ;
  52.                    Status = "Rule"        ;
  53.               endif                       ;
  54. if (secu = 80) then                       ;
  55.                    count  = 32            ;
  56.                    Status = "CSys"        ;
  57.               endif                       ;
  58. if (secu = 90) then                       ;
  59.                    count  = 36            ;
  60.                    Status = "!!!!"        ;
  61.               endif                       ;
  62.  
  63. ;-----------------------------------------------------------------------
  64. ;Screen Graphic 
  65. ;-----------------------------------------------------------------------
  66. Cls                                       ; Clear Screen ... huh !
  67. Dispfile ppepath()+"gfx\enh_sec.mid",111b ; Show Grpahic...
  68. Ansipos 40,5                              ; Set Cursor Position for "move
  69.                                           ; the block" effect...
  70. ;-----------------------------------------------------------------------
  71. :Print_Char                               ; Label...
  72. Zeichen = "@X04░"                         ; Define Char...
  73. if (acount >14) zeichen = "@X04▒"         ; if acount bla then char = bla
  74. if (acount >26) zeichen = "@X04▓"         ; " 
  75. if (acount >33) zeichen = "@X04█"         ; "
  76. Print Zeichen                             ; Print 1 char...
  77. if (acount = count) goto print_info       ; If acount equal to count stop!
  78. inc acount                                ; inc the internal counter...
  79. delay 1                                   ; Wait ...
  80. Goto Print_Char                           ; Return to startpoint..
  81. stop                                      ; Hold on.. baby!
  82. ;-----------------------------------------------------------------------
  83. :Print_Info                               ; Print Security info text...
  84. Ansipos 47,19                             ; Cursor Pos..
  85. Print "@X07" + Status                     ; His Status..
  86. Ansipos 73,19                             ; Cursor Pos..
  87. Print "@X07" + SecU                       ; His Security..
  88. Ansipos 47,20                             ; Cursor Pos..
  89. Print "@X07" + U_name()                   ; User Name...
  90. Ansipos 39,11                             ; Cursor Pos
  91. SecStr = Secu                             ; Sec for the infofile to load..
  92. Fopen 1,ppepath()+"infos\sec."+SecStr, o_rd, s_dn
  93. ;                          ^-> infos\sec.10 ...      
  94. ;-----------------------------------------------------------------------
  95. :Read_info                                ; Read and display text until
  96. FGet  1,templine                          ; nix mehr da...
  97. print "@X07" + templine
  98. if (templine = "") goto wait
  99. if (icount = 6) goto wait
  100. Ansipos 39,11+ICount
  101. Inc Icount
  102. goto read_info
  103. stop
  104. ;-----------------------------------------------------------------------
  105. :Wait                                     ; Key waiting routine...
  106. Waitkey = Inkey()
  107. if (Waitkey > "") goto ende
  108. goto wait
  109. stop
  110. ;-----------------------------------------------------------------------
  111. :Ende
  112. Cls
  113. Println "@X07Thanks for using Enhanced Security Show V.99 by Cosmic.Qtip"
  114. ;Removing this declares you as LAMER !
  115. stop
  116. ;-----------------------------------------------------------------------
  117. ;Bye! 
  118.